home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MEMMON.DIR / 00058.ls < prev    next >
Encoding:
Text File  |  2003-04-21  |  1.1 KB  |  45 lines
  1. on DoDelay delay
  2.   startTime = the ticks
  3.   gDelayTime = delay * 60
  4.   repeat while the ticks < (startTime + gDelayTime)
  5.   end repeat
  6. end
  7.  
  8. on ExpandWindow
  9.   wind = getAt(the windowList, 1)
  10.   leftSide = getAt(wind.rect, 1)
  11.   topSide = getAt(wind.rect, 2)
  12.   rightSide = getAt(wind.rect, 3)
  13.   bottomSide = getAt(wind.rect, 4)
  14.   wind.rect = rect(leftSide, topSide, leftSide + 160, bottomSide)
  15. end
  16.  
  17. on HandleButtons
  18.   set the ink of sprite 12 to 0
  19.   set the ink of sprite 13 to 0
  20.   set the ink of sprite 14 to 0
  21.   set the ink of sprite 15 to 0
  22.   set the ink of sprite 16 to 0
  23.   set the ink of sprite 17 to 0
  24.   if the colorDepth = 8 then
  25.     set the ink of sprite 15 to 34
  26.   else
  27.     if the colorDepth = 16 then
  28.       set the ink of sprite 16 to 34
  29.     else
  30.       if the colorDepth = 32 then
  31.         set the ink of sprite 17 to 34
  32.       else
  33.         if the colorDepth = 2 then
  34.           set the ink of sprite 14 to 4
  35.         else
  36.           if the colorDepth = 1 then
  37.             set the ink of sprite 13 to 4
  38.           end if
  39.         end if
  40.       end if
  41.     end if
  42.   end if
  43.   updateStage()
  44. end
  45.